/ MacWorld 2000 January / Macworld (2000-01).dmg / Shareware World / Utilities / Text processing / PDF–Blit™1.02.sea / PDF–Blit™1.02 / Source / DialogUtilities.c

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 11 44 69 61 6c 6f 67 | 55 74 69 6c 69 74 69 65 |..Dialog|Utilitie|
|00000010| 73 2e 63 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s.c.....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 05 d7 00 | 00 02 2a b4 06 0b 66 b4 |........|..*...f.|
|00000060| 06 0b 66 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..f.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8c 5b 00 00 |........|.....[..|
|00000080| 23 69 6e 63 6c 75 64 65 | 20 3c 44 69 61 6c 6f 67 |#include| <Dialog|
|00000090| 55 74 69 6c 69 74 69 65 | 73 2e 68 3e 0d 0d 0d 70 |Utilitie|s.h>...p|
|000000a0| 61 73 63 61 6c 20 76 6f | 69 64 20 47 65 74 49 52 |ascal vo|id GetIR|
|000000b0| 65 63 74 28 44 69 61 6c | 6f 67 50 74 72 20 64 2c |ect(Dial|ogPtr d,|
|000000c0| 20 73 68 6f 72 74 20 69 | 74 65 6d 2c 20 52 65 63 | short i|tem, Rec|
|000000d0| 74 20 2a 72 29 0d 7b 0d | 09 48 61 6e 64 6c 65 20 |t *r).{.|.Handle |
|000000e0| 68 3b 0d 09 73 68 6f 72 | 74 20 69 54 79 70 65 3b |h;..shor|t iType;|
|000000f0| 0d 09 0d 09 47 65 74 44 | 69 61 6c 6f 67 49 74 65 |....GetD|ialogIte|
|00000100| 6d 28 64 2c 20 69 74 65 | 6d 2c 20 26 69 54 79 70 |m(d, ite|m, &iTyp|
|00000110| 65 2c 20 26 68 2c 20 72 | 29 3b 0d 7d 0d 0d 70 61 |e, &h, r|);.}..pa|
|00000120| 73 63 61 6c 20 48 61 6e | 64 6c 65 20 47 65 74 49 |scal Han|dle GetI|
|00000130| 48 61 6e 64 6c 65 28 44 | 69 61 6c 6f 67 50 74 72 |Handle(D|ialogPtr|
|00000140| 20 64 2c 20 73 68 6f 72 | 74 20 69 74 65 6d 29 0d | d, shor|t item).|
|00000150| 7b 0d 09 52 65 63 74 20 | 72 3b 0d 09 48 61 6e 64 |{..Rect |r;..Hand|
|00000160| 6c 65 20 68 3b 0d 09 73 | 68 6f 72 74 20 69 54 79 |le h;..s|hort iTy|
|00000170| 70 65 3b 0d 09 0d 09 47 | 65 74 44 69 61 6c 6f 67 |pe;....G|etDialog|
|00000180| 49 74 65 6d 28 64 2c 20 | 69 74 65 6d 2c 20 26 69 |Item(d, |item, &i|
|00000190| 54 79 70 65 2c 20 26 68 | 2c 20 26 72 29 3b 0d 09 |Type, &h|, &r);..|
|000001a0| 72 65 74 75 72 6e 20 68 | 3b 0d 7d 0d 0d 70 61 73 |return h|;.}..pas|
|000001b0| 63 61 6c 20 76 6f 69 64 | 20 53 65 74 53 74 72 49 |cal void| SetStrI|
|000001c0| 74 65 6d 28 44 69 61 6c | 6f 67 50 74 72 20 64 2c |tem(Dial|ogPtr d,|
|000001d0| 20 73 68 6f 72 74 20 69 | 74 65 6d 2c 20 75 6e 73 | short i|tem, uns|
|000001e0| 69 67 6e 65 64 20 63 68 | 61 72 20 73 5b 5d 29 0d |igned ch|ar s[]).|
|000001f0| 7b 0d 09 48 61 6e 64 6c | 65 20 68 20 3d 20 47 65 |{..Handl|e h = Ge|
|00000200| 74 49 48 61 6e 64 6c 65 | 28 64 2c 20 69 74 65 6d |tIHandle|(d, item|
|00000210| 29 3b 0d 09 53 65 74 44 | 69 61 6c 6f 67 49 74 65 |);..SetD|ialogIte|
|00000220| 6d 54 65 78 74 28 68 2c | 20 73 29 3b 0d 7d 0d 0d |mText(h,| s);.}..|
|00000230| 70 61 73 63 61 6c 20 76 | 6f 69 64 20 52 65 61 64 |pascal v|oid Read|
|00000240| 53 74 72 49 74 65 6d 28 | 44 69 61 6c 6f 67 50 74 |StrItem(|DialogPt|
|00000250| 72 20 64 2c 20 73 68 6f | 72 74 20 69 74 65 6d 2c |r d, sho|rt item,|
|00000260| 20 75 6e 73 69 67 6e 65 | 64 20 63 68 61 72 20 73 | unsigne|d char s|
|00000270| 5b 5d 29 0d 7b 0d 09 48 | 61 6e 64 6c 65 20 68 20 |[]).{..H|andle h |
|00000280| 3d 20 47 65 74 49 48 61 | 6e 64 6c 65 28 64 2c 20 |= GetIHa|ndle(d, |
|00000290| 69 74 65 6d 29 3b 0d 09 | 47 65 74 44 69 61 6c 6f |item);..|GetDialo|
|000002a0| 67 49 74 65 6d 54 65 78 | 74 28 68 2c 20 73 29 3b |gItemTex|t(h, s);|
|000002b0| 0d 7d 0d 0d 70 61 73 63 | 61 6c 20 76 6f 69 64 20 |.}..pasc|al void |
|000002c0| 53 65 74 44 6c 67 43 74 | 6c 28 44 69 61 6c 6f 67 |SetDlgCt|l(Dialog|
|000002d0| 50 74 72 20 64 2c 20 73 | 68 6f 72 74 20 69 74 65 |Ptr d, s|hort ite|
|000002e0| 6d 2c 20 42 6f 6f 6c 65 | 61 6e 20 66 6c 61 67 29 |m, Boole|an flag)|
|000002f0| 0d 7b 0d 09 43 6f 6e 74 | 72 6f 6c 48 61 6e 64 6c |.{..Cont|rolHandl|
|00000300| 65 20 63 20 3d 20 28 43 | 6f 6e 74 72 6f 6c 48 61 |e c = (C|ontrolHa|
|00000310| 6e 64 6c 65 29 47 65 74 | 49 48 61 6e 64 6c 65 28 |ndle)Get|IHandle(|
|00000320| 64 2c 20 69 74 65 6d 29 | 3b 0d 09 0d 09 53 65 74 |d, item)|;....Set|
|00000330| 43 6f 6e 74 72 6f 6c 56 | 61 6c 75 65 28 63 2c 20 |ControlV|alue(c, |
|00000340| 66 6c 61 67 29 3b 0d 7d | 0d 0d 70 61 73 63 61 6c |flag);.}|..pascal|
|00000350| 20 42 6f 6f 6c 65 61 6e | 20 47 65 74 44 6c 67 43 | Boolean| GetDlgC|
|00000360| 74 6c 28 44 69 61 6c 6f | 67 50 74 72 20 64 2c 20 |tl(Dialo|gPtr d, |
|00000370| 73 68 6f 72 74 20 69 74 | 65 6d 29 0d 7b 0d 09 43 |short it|em).{..C|
|00000380| 6f 6e 74 72 6f 6c 48 61 | 6e 64 6c 65 20 63 20 3d |ontrolHa|ndle c =|
|00000390| 20 28 43 6f 6e 74 72 6f | 6c 48 61 6e 64 6c 65 29 | (Contro|lHandle)|
|000003a0| 47 65 74 49 48 61 6e 64 | 6c 65 28 64 2c 20 69 74 |GetIHand|le(d, it|
|000003b0| 65 6d 29 3b 0d 09 0d 09 | 72 65 74 75 72 6e 20 47 |em);....|return G|
|000003c0| 65 74 43 6f 6e 74 72 6f | 6c 56 61 6c 75 65 28 63 |etContro|lValue(c|
|000003d0| 29 3b 0d 7d 0d 0d 70 61 | 73 63 61 6c 20 42 6f 6f |);.}..pa|scal Boo|
|000003e0| 6c 65 61 6e 20 54 65 73 | 74 44 6c 67 43 74 6c 28 |lean Tes|tDlgCtl(|
|000003f0| 44 69 61 6c 6f 67 50 74 | 72 20 64 2c 20 73 68 6f |DialogPt|r d, sho|
|00000400| 72 74 20 69 74 65 6d 29 | 0d 7b 0d 09 43 6f 6e 74 |rt item)|.{..Cont|
|00000410| 72 6f 6c 48 61 6e 64 6c | 65 20 63 20 3d 20 28 43 |rolHandl|e c = (C|
|00000420| 6f 6e 74 72 6f 6c 48 61 | 6e 64 6c 65 29 47 65 74 |ontrolHa|ndle)Get|
|00000430| 49 48 61 6e 64 6c 65 28 | 64 2c 20 69 74 65 6d 29 |IHandle(|d, item)|
|00000440| 3b 0d 09 0d 09 72 65 74 | 75 72 6e 20 28 28 2a 2a |;....ret|urn ((**|
|00000450| 63 29 2e 63 6f 6e 74 72 | 6c 48 69 6c 69 74 65 20 |c).contr|lHilite |
|00000460| 21 3d 20 30 78 46 46 29 | 3b 0d 7d 0d 0d 70 61 73 |!= 0xFF)|;.}..pas|
|00000470| 63 61 6c 20 76 6f 69 64 | 20 58 41 62 6c 65 44 6c |cal void| XAbleDl|
|00000480| 67 43 74 6c 28 44 69 61 | 6c 6f 67 50 74 72 20 64 |gCtl(Dia|logPtr d|
|00000490| 2c 20 73 68 6f 72 74 20 | 69 74 65 6d 2c 20 42 6f |, short |item, Bo|
|000004a0| 6f 6c 65 61 6e 20 66 6c | 61 67 29 0d 7b 0d 09 73 |olean fl|ag).{..s|
|000004b0| 68 6f 72 74 20 74 79 70 | 65 3b 0d 09 48 61 6e 64 |hort typ|e;..Hand|
|000004c0| 6c 65 20 68 61 6e 64 6c | 65 3b 0d 09 52 65 63 74 |le handl|e;..Rect|
|000004d0| 20 72 65 63 74 3b 0d 09 | 0d 09 47 65 74 44 69 61 | rect;..|..GetDia|
|000004e0| 6c 6f 67 49 74 65 6d 28 | 64 2c 20 69 74 65 6d 2c |logItem(|d, item,|
|000004f0| 20 26 74 79 70 65 2c 20 | 26 68 61 6e 64 6c 65 2c | &type, |&handle,|
|00000500| 20 26 72 65 63 74 29 3b | 0d 09 0d 09 48 69 6c 69 | &rect);|....Hili|
|00000510| 74 65 43 6f 6e 74 72 6f | 6c 28 28 43 6f 6e 74 72 |teContro|l((Contr|
|00000520| 6f 6c 48 61 6e 64 6c 65 | 29 68 61 6e 64 6c 65 2c |olHandle|)handle,|
|00000530| 20 66 6c 61 67 20 3f 20 | 30 20 3a 20 30 78 46 46 | flag ? |0 : 0xFF|
|00000540| 29 3b 0d 09 0d 09 49 6e | 76 61 6c 52 65 63 74 28 |);....In|valRect(|
|00000550| 26 72 65 63 74 29 3b 0d | 7d 0d 0d 70 61 73 63 61 |&rect);.|}..pasca|
|00000560| 6c 20 76 6f 69 64 20 53 | 65 74 75 70 55 73 65 72 |l void S|etupUser|
|00000570| 49 74 65 6d 28 44 69 61 | 6c 6f 67 50 74 72 20 64 |Item(Dia|logPtr d|
|00000580| 2c 20 73 68 6f 72 74 20 | 69 74 65 6d 2c 20 70 61 |, short |item, pa|
|00000590| 73 63 61 6c 20 76 6f 69 | 64 20 28 2a 49 74 65 6d |scal voi|d (*Item|
|000005a0| 50 72 6f 63 29 28 44 69 | 61 6c 6f 67 50 74 72 20 |Proc)(Di|alogPtr |
|000005b0| 64 2c 20 73 68 6f 72 74 | 20 69 74 65 6d 29 29 0d |d, short| item)).|
|000005c0| 7b 0d 09 73 68 6f 72 74 | 20 74 79 70 65 3b 0d 09 |{..short| type;..|
|000005d0| 48 61 6e 64 6c 65 20 68 | 61 6e 64 6c 65 3b 0d 09 |Handle h|andle;..|
|000005e0| 52 65 63 74 20 72 65 63 | 74 3b 0d 09 0d 09 47 65 |Rect rec|t;....Ge|
|000005f0| 74 44 69 61 6c 6f 67 49 | 74 65 6d 28 64 2c 20 69 |tDialogI|tem(d, i|
|00000600| 74 65 6d 2c 20 26 74 79 | 70 65 2c 20 26 68 61 6e |tem, &ty|pe, &han|
|00000610| 64 6c 65 2c 20 26 72 65 | 63 74 29 3b 0d 09 53 65 |dle, &re|ct);..Se|
|00000620| 74 44 69 61 6c 6f 67 49 | 74 65 6d 28 64 2c 20 69 |tDialogI|tem(d, i|
|00000630| 74 65 6d 2c 20 74 79 70 | 65 2c 20 28 48 61 6e 64 |tem, typ|e, (Hand|
|00000640| 6c 65 29 49 74 65 6d 50 | 72 6f 63 2c 20 26 72 65 |le)ItemP|roc, &re|
|00000650| 63 74 29 3b 0d 7d 0d 00 | 00 00 00 00 00 00 00 00 |ct);.}..|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 01 00 00 00 01 c6 | 00 00 00 c6 00 00 00 64 |........|.......d|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 11 44 69 61 6c 6f 67 55 | 74 69 6c 69 74 69 65 73 |.DialogU|tilities|
|000006c0| 2e 63 65 6c 61 6c 2e 70 | 64 66 34 32 20 32 31 31 |.celal.p|df42 211|
|000006d0| 00 00 54 45 58 54 4b 41 | 48 4c 00 00 00 00 00 01 |..TEXTKA|HL......|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 a6 ce d4 bd 00 00 | 05 d7 00 00 02 2a 00 00 |........|.....*..|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 6e 52 b6 6a 75 | 3f e5 32 30 00 04 00 00 |...nR.ju|?.20....|
|00000790| 00 01 00 00 00 00 b2 43 | df 71 af ec 2b a6 b2 43 |.......C|.q..+..C|
|000007a0| df 6d 00 8f ff f4 00 01 | 00 05 00 01 1c 42 42 45 |.m......|.....BBE|
|000007b0| 64 69 74 20 45 78 74 65 | 6e 73 69 6f 6e 20 49 6e |dit Exte|nsion In|
|000007c0| 74 65 72 66 61 63 65 73 | ba 00 0b 52 69 63 68 20 |terfaces|...Rich |
|000007d0| 53 69 65 67 65 6c 00 01 | 31 00 11 44 69 61 6c 6f |Siegel..|1..Dialo|
|000007e0| 67 55 74 69 6c 69 74 69 | 65 73 2e 63 00 00 00 00 |gUtiliti|es.c....|
|000007f0| 00 00 00 00 00 48 00 09 | 4d 6f 6e 61 63 6f 00 00 |.....H..|Monaco..|
|00000800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 00 00 00 00 00 00 | 00 02 00 04 00 3f 00 32 |........|.....?.2|
|00000820| 02 14 02 32 00 3f 00 32 | 02 14 02 32 b4 05 c5 16 |...2.?.2|...2....|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000840| 00 04 00 01 00 01 00 00 | 01 00 00 00 01 c6 00 00 |........|........|
|00000850| 00 c6 00 00 00 64 02 7a | 37 28 33 0c 00 00 00 1c |.....d.z|7(3.....|
|00000860| 00 5a 00 02 63 6b 69 64 | 00 00 00 1a 4d 50 53 52 |.Z..ckid|....MPSR|
|00000870| 00 00 00 26 4d 57 42 42 | 00 00 00 32 00 80 00 00 |...&MWBB|...2....|
|00000880| 00 00 00 00 00 00 00 00 | 03 ed ff ff 00 00 00 72 |........|.......r|
|00000890| 00 00 00 00 03 f0 ff ff | 00 00 00 be 00 00 00 00 |........|........|
|000008a0| 09 50 72 6f 6a 65 63 74 | 6f 72 00 00 00 00 00 00 |.Project|or......|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+